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9 REM _ 



SEQ $®BI 



IDENTIFICATION 



PRODUCT CODES 



AC»E745I«MC 



PRODUCT NAMEi 



CXRPBI0 PHU-RH70 SGL PT DSK 



PRODUCT DATE ! 



FEBRUARY 1979 



MAINTAINED I 



DEC/X11 SUPPORT GROUP 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL, 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COpIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM # EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 

THE USE Op RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL* 

COPYRIGHT (C) 1974, 1979 DIGITAL EQUIPMENT CORPORATION 



RPBI DEC/X11 SYSTEM EXERCISER MODULE MACYH 30AC1052) 08«>F£B»79 09126 PAGE 3 
XRPBI0 8 P1 i 08»FE8»79 09s23 



SEQ 1^002 



1. ABSTRACT 



RPB IS AN IOMOD THAT EXERCISES RP<?4/5/6 DISK DRIVES ON AN 
RHH/RH70 CONTROLLER. IT EXERCISES THE DRIVES BY DOING WRITES, 
WRITE-CHECKS* READS # AND IN-CORE COMPARISONS. ALL ERRORS DETECTED 
ARE REPORTED ON THE CONSOLE TTY , 



2* REQUIREMENTS 



HARDWARES 1 TO 8 RP04/5/6'S WITH AN RH11/RH70 CONTROLLER 

STORAGE s S RPB REQUIRES I 

1. DECIMAL WORDS* 1466 
2* OCTAL WORDS | 02672 
3* OCTAL BYTES S 5564 



3* PASS DEFINITION 

ONE PASS OF THE RPB MODULE CONSISTS OF 1300 CYCLES OF THE BASIC TEST 
SEQUENCE (WRITE, ^RITE-CHECK, READ? DATA-CHECK) , THE TEST SEQUENCE 
WRITES 1024 WORDS # WRITE«-CHECKS SAME* READS THE FIRST 256 WORDS* 
AND DATA-CHECKS SAME, 

4, EXECUTION TIME 

ONE PASS OF RPB PUNNING ALONE ON A PDP-11/40 TAKES APPROXIMATELY 1 MINUTE, 

5, CONFIGURATION REQUIREMENTS 

DEFAULT PARAMETERS! 

DEVADR s 176700, VECTOR i 254, BR1 J 5, DEVCNT : 1 

REQUIRED PARAMETERS! 

NONE 

6, DEVICE/OPTION SETUP 



MAKE CERTAIN THAT ALL DRIVES ARE POWERED UP, WRITE ENABLED, AND READY 
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SEQ 0003 



7 e MODULE OPERATION 



TEST SEQUENCE 1 

A, SETUP DEVICE REGISTER ADDRESSES AND MODULE VARIABLES 

B 8 RESET ALL DRIVES ON-LINE AND DROP ALL THAT APE NOT 

C, GET A STARTING SECTOR ADDRESS 

D s GET A DRIVE ADDRESS 

£, DO A WRITE — IF ERRORS? REPORT AND RETRY UP TO RETRY LIMIT 

F t DO A WRITE-CHECK IF ERRORS? REPORT AND RETRY UP TO RETRY LIMIT 

G, DO A READ IF ERRORS, REPORT AND RETRY UP TO RETRY LIMIT 

H, DO A DATA-CHECK — IF ERRORS, REPORT AND RETRY UP TO RETRY LIMIT 

I, IF END OF PASS, REPORT AND GO TO C 

J B IF END OF DRIVES # GO TO C ELSE GO TO D 

8. OPERATION OPTIONS 



SRI BIT0 SET C 1 ) I 

IF THE RETRY LIMIT IS EXCEEDED ON ANY FUNCTION , A HARD ERROR 
IS ASSUMED AND THE DRIVE IS DROPPED 

SRI BIT0 CLEAR (0 ) : 

IF THE RETRY LIMIT IS EXCEEDED, THE FUNCTION IS ABORTED AND 
THE TESTING CONTINUES 

SRI BIT2 SET (1)1 

COUNT DATA LATE ERRORS BUT DO MOT TYPE THEM OUT 

SRI BIT2 CLEAR(0)| 

TYPE OUT DATA LATE ERRORS AND COUNT THE to 

SRI BITS CLEAR (0) | NORMAL FOR RP04 PACKS THAT ARE FORMATED 

JFOR 16 BIT MODE (PDP-11) 
SRI BITS SET (1) jFOR RP04 18 BIT FORMATED PACKS 
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9, NONSTANDARD PRINTOUTS 



A, MOST PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN 
THE DEC/XU DOCUMENT 

B 8 ERROR MESSAGES DUMP THE CONTENTS OF THE 20 RHU/RP REGISTERS 
IN THE FOLLOWING ORDER 1 

PHCS1 RHWC PHBA RPDA RHCS2 RPDS RPER1 RPAS 
RPLA RHDB RPMP RPDT PPSN RPOF RPDC RPCC 
RPER2 RPER3 RPEC1 RPEC2 RHBAE RHCS3 XFER CNT 
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SCO 0Uf5 



000000* IOMPDX <RPBZ >, 176700, 254, 5, 0,0, 1300., 60, BUFIN, 256, , 1024, 

y00000* MODULE 150000, RPBI , 1 76700 , 254 , 5 , , , 1 300 , , 60 , BUFIN , 256 , , 1 024 , 

.TITLE PPBI DEC/XU SYSTEM EXERCISER MODULE 

I DDXCOM VERSION 6 23-MAY-78 



.LIST BIN 

;«##**#••«««•**#«««««««««««#«***»«*»*»«»**««*»»*««*««««*«•«*»«*««««««««« 



000000* 




BEGIN | 








000000* 


050122 044502 


040 M0DNAM1 


.ASCII 


/RPBI / 


f MODULE NAME. 


000005* 


000 


XFLAG | 


.BYTE 


OPEN 


1 USED TO KEEP TRACK OF WBUFF USAGE 


00(3006* 


176700 


ADDRI 


176700+0 


rlST DEVICE ADDR. 


0000 Ik 4 * 


000254 


VECTOR | 


254+0 




I1ST DEVICE VECTOR, 


00001 2 * 


240 


BRli 


9 BYTF, 


PPTY5+0 


flST BR LEVEL. 


00001 3 * 


000 


BR2I 


.BYTE 


PPTY0+0 


I2ND BR LEVEL. 


000014* 


000001 


DVID1I 


0+1 




IDEVICE INDICATOR l t 


0000 1 6 * 


000000 


SR1I 


OPEN 




•SWITCH REGISTER 1 


000020* 


000000 


SR2I 


OPEN 




ISWITCH REGISTER 2 


(■•0022* 


000000 


SR3I 


OPEN 




1SWITCH REGISTER 3 


000024 * 


000000 


SR41 


OPEN 




} SWITCH REGISTER 4 








000026 * 


1 50000 








t CT1TIK wnRD 


0000 30* 


001452* 


INITI 


START 




.MnmiT.ir eirioT jnnD 

I 1,1 U U U u C SinKi nUUHt 


000032 * 


H00252 ' 


epfi T NT I 


MODSP 




t MnnilT.P* STACK POTNTFR 


00M034 » 


000000 










000036 * 


002424 


ICONT | 


\ 300 






000040* 


000000 


ICOUNTI 







ILOC TO COUNT ITERATIONS 


4 2 * 


^00000 


SOFCNTf 







jLOC TO SAVE TOTAL SOFT ERRORS 


0001-144* 


000000 


HRDCNT1 







ILOC TO SAVE TOTAL HARD ERRORS 


00046 * 


000000 


SOFPASI 







|LGC TO SAVE SOFT ERRORS PER PASS 


000050* 


000000 


HRDPASI 







ILOC TO SAVE HARD ERRORS PER PASS 


000052 * 


000000 


SYSCNT! 







|S OF SYS ERRORS ACCUMULATED 


lrMV.054* 


000000 


p ANNUM t 







IHOLDS RANDOM • WHEN RAND MACRO IS CALLED 


00P056 * 




CONFIGl 






| RESERVED FOP MONITOR USE 


000056* 


000000 


PES1 1 







I RESERVED FOR MONITOR USE 


00006^ * 


000000 


PES2I 







I RESERVED FOR MONITOR USE 


t,u-wfe2 ' 


000000 


SVR0J 


OPEN 




ILOC TO SAVE R0, 


(-'00064 * 


000000 


SVPt I 


OPEN 




|LOC TO SAVE Rl. 


0«0066 * 


000000 


SVP2! 


OPEN 




ILOC TO SAVE R2. 


t'k'007^ * 


000000 


SVR3! 


OPEN 




ILOC TO SAVE P3. 


0C.^^7 2 ' 


000000 


SVP4{ 


OPEN 




ILOC TO SAVE P4, 


v't 007 4' 


00(^,000 


SVP5I 


OPEN 




|LOC TO SAVE P5. 


00«V76* 


000000 


SVP6! 


OPEN 




ILOC TO SAVE R6, 


000101*' 


00 0000 


CSPAs 


OPEN 




I ADDR OF CURRENT CSR, 






sbadr: 






| ADDR OF GOOD DATA, OR 


w v. 102* 




ACSR; 


OPEN 




f CONTENTS OF CSP. 


t. --i 1^4" 




^ asadr : 






IADDR OF BAD DATA, OR 




0Hfc'000 


ASTATj 


OPEN 




JSTATUS REG CONTENTS , 






FRPTYPS 






I TYPE OF ERROR 


000106* 


1*00000 


ASB i 


OPEN 




I EXPECTED DATA , 


H»0 J 1 


00000!? 


AWASI 


OPEN 




1 ACTUAL DATA. 


4>«i0l 1 2' 


t'01734* 


BSTRTj 


RESTPT 




IRESTART ADDRESS AFTER END OF PASS 


14' 


{'.00000 




OPEN 




IWOPDS TO MEMORY PER ITERATION 


tt<"0l 16' 




WDFPi 


OPEN 




|WOPDS FROM MEMORY PER ITERATION 




000000 


1NTP! 


OPEN 




1* OF INTERRUPTS PER ITERATION 


i*0»122* 


000060 


IDNUMj 


6« 




•MODULE IDENTIFICATION NUMBERo60 


("40 12 4' 


f-00 370* 


PBUFVAS 


BUFIN 




1 READ BUFFER VIRTUAL ADDRESS 


*-'0'/126* 


000000 


PBUFPAi 


OPEN 




j READ BUFFER PHYSICAL ADDRESS 
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frUVM 3fi 



0U000^ 



(V01 32* 0013400 



136* 
wt 1 4 * 
i?iA0j 42 ' 

144* 
1-00146' 
W00150' 



UIH10P0 
00tf000 

00 2W00 
000000 
W00000 
000000 
000000 
0000 4<* 



PBUFEAI OPEN 
PBUFSZl 256. 
fcBUFPA: OPEN 
WBUFF-M OPEN 
WBUFRQ : }«24. 
KBUFSZl OPEN 
CDERCTJ OPEN 
CDWDCT! OPEN 
FRF E : OPEN 
.PEPT 
.NLIST 
.WORD 
.LIST 
,£NDP 



J READ BUFFER 
ISIZE OF THE 
JWRITE BUFFER 
IWRITE BUFFER 
•WRITE BUFFER 
;wplTF BUFFER 
JCDATA/DATCK 
ICDATA/DATCK 
•RESERVED FOR 
I MODULE STACK 



EA BITS 
READ BUFFER 
PHYSICAL ADDRESS 
EA BITS 

SIZE REQUESTED 
SIZE AVAILABLE 
ERROR COUNT 
fcORD COUNT 
FUTURE USE 
STARTS HERE. 
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SEQ 0007 



222 


000252 ' 


000000 


DLTCNT 1 





1 DATA LATE ERROR COUNTER 


223 


000254* 


000000 


CLK i 







224 


000256 * 


000000 


BLKi I 





;DISK BLOCK COUNTER 


225 


000260* 


000000 


CYL I 





ICALCULATED CYLINDER ADDRESS 


226 


000262 * 




C YLSAV 1 





j MODIFIED CYLINDER ADDRESS FOR RP04/5 


227 


000264 * 


000000 









228 




k/ *y ly i7 so 


CNf | 





f CYCLE COUNTER 


229 


000270 ' 


YJv/MjVJiOw} 


FUNC I 







230 


V K> W f, ft 


VjxiYjxjYix) 


ONPFP" f 






231 


000274 * 


aaaaua 









232 












233 






•DO NOT 


CHANGE THE ORDER OF 


THE NEXT 15 LOCATIONS 








; HE.E.UCU 


F/1D MID?? DfillTTNF 
pur* rnfl r * « puu 1 *i<t 




235 












236 


U « irt 9 7 A * 


\OYJy)kJY)Y> 


PA1 8 1 







237 


000 300 * 


if/ W ty 10 KJ ty 


XMFM 1 
A & ^» I 









000 30 2 * 


Kf r 7 *t* KJ *? W 


PA22 1 






239 


000304 * 


000000 


EA22 1 







240 




000000 


MBLKPV 1 





> HOLDS 1024 WD BLKS PER TRACK 


24| 


0003 1 ' 


000000 


MBLKTR 1 





JHOLDS BLKS PER CYLINDER 






ft 01 01 ft 01 


HOOEl 





1 HOLDS LAST SECTOR # THAT WILL FIT PER TRACK 


243 


3 1 4 * 


000000 


MLOWCYI 





JBLKS THAT FIT IN FIRST 410 CYLINDERS ( 0*409 ) 




W rill?) 1 1 A * 


W ft £4 Oi {A CA 


MHICYi 





j BLKS THAT FIT IN LAST 405 CYLINDERS (410"*814) 


245 












246 


*i V.! V) 3 A V 


tiYl V) Ir V) 


T16 I 


6 


{THESE 5 LOC , GET MOVED TO ABOVE 5 IF 16 BIT MODE 


247 


000322* 


000162 




114, 


11024 WORD BLOCKS/CYLINDER 


24 8 


3 2 4 * 


000024 




20. 


j SECTORS/TRACK 


249 


0610 326 * 


133224 




46740. 


J410a X 114. (CYLINDER "° 409) 


250 


000 3 30 * 


132132 




46170, 


1 405 , X 114, (CYLINDER 410 - 814) 


25 1 












252 












25 3 






; #######♦##*##### 




25 4 


00^ 3 3 2 * 


1100005 


T18I 


5 


jTHESE 5 LOC GET MAPPED INTO FIRST 5 « B V fci IF 18 BIT 


255 


0003 34' 


0001 37 




95, 


{1024 WORD (18 BIT) BLOCKS /CYLINDER 


256 


000335 ' 


00^022 




18. 


I SECTORS/TRACK 


257 


000340 * 


1 14046 




38950. 


j 4 1 p . x 95. (CYLINDER - 409) 


258 


3 4 2 * 


113113 




38475. 


1405. X 95, (CYLINDER 410 - 814) 


259 






•##■»#«■#*•####*■##*#* 




260 












261 


00P344* 


000000 


ZEPOj 







262 


000 3 46 ' 


000000 


DSKADPI 







263 


0(10 350* 


000000 


DVICEl 







264 


000 352* 


000000 


DPIVEl 







265 


W00 35 4 * 


000000 


BLKSAVl 







266 


000 356* 


000000 


TBUF 1 







267 


000360' 


000000 


WCNT1 | 







268 


<H-n?36 2* 


000000 


WCNT2I 







269 


i-»i»3b4' 


000000 


UNITNO! 







27^ 


O00 366' 


000000 


MODI! 







271 


00370* 


000400 


BUFINj 


.BLKrt 256, 
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272 


i)01 370' 




TABLE i 




273 


0^1 370' 


000000 


RHCSll 





274 


«tfl372' 


000003 


RHWCI 





275 


001 37 4' 


000000 


RHBAj 





276 


0'M376* 


000000 


PPDA5 





277 


0-31 4C0 ' 


000000 


PHCS2! 





278 


i.hM 402' 


000000 


PPDSS 





279 


1 4 4 ' 


000000 


PPER1 I 





28^ 


001 406' 


000000 


PPA5S 





281 


001 410' 


000000 


PPLAS 





282 


412' 


000000 


PHDB! 





283 


001 414' 


000000 


PPMPj 





284 


001416' 


0^0000 


ppdt: 





285 


umi 420' 


000000 


PPSNj 





286 


001422' 


000000 


PPOF I 





287 


001424' 


000000 


PPDCl 





288 


001 426* 


000000 


PPCC! 





289 


001 430* 


000000 


RPER2 1 





290 


t»l 432' 


000000 


PPER3 : 





291 


001434* 


000000 


RPEC 1 t 





292 


0M1436' 


000000 


RPEC2J 





293 


001 440* 


000000 


RHBAEi 





294 


001 442' 


000000 


PHCS3 : 





295 


001 444* 


000274' 


XFERADI 


FERADP 


296 


001 446* 


000266' 


XFERCTI 


CNT 


297 


001450' 


177777 




177777 
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SEQ 0009 



298 


Mb 14 9/ 






176436 


START I 


MOV 


# 1 024 t i WDFR 


f 1 024 » WORDS FROM MEM/ITERATION 


299 


rJY> HOf 




000400 


176426 




MOV 


#256 , , WDTO 


) 256 , WORDS TO MEM/ ITERATION 


300 


ilk Ik ^ AZ.S. * 
PHI 4 


012767 


000003 


176424 




MOV 


# 3 , INTR 


| 3 INTfcKKUrTo/ITERATION 


301 




01 R Oi & 


176566 






CLR 


CNT 


1 ZERO END OF PASS TESTER 


302 


00 1 500 * 


005067 


176546 






CLR 


DLTCNT 


jCLEAR DATA LATE ERROR COUNTER 


303 




012767 


010000 


176654 




MOV 


#BIT12,M0D1 


ISETUP FOP 16 BIT MODE (NORMAL) 


304 


001 S 1 2 * 


1 2700 


000320 * 






MOV 


#T16#R0 


J GET TABLE OF VALUES FOR 16 BIT MODE 






032767 


000040 


176272 




BIT 


#BIT5# 8Rl 


116 BIT MODE? 






00 1404 








BEQ 


2$ 


1 YES 


4(37 


(S(A \ g1£i 


005067 


176634 






CLR 


MODI 


J NO 18 BIT MODE, CLEAR FMT BIT 


30 8 


04(3 S 5 3 2 * 


012700 


000332 ' 






MOV 


#T18,R0 


j GET TABLE OF VALUES FOR 18 BIT MODE 


309 


001 5 36 * 


012701 


000306 * 




2$ 1 


MOV 


#VBLKRV»Rl 


I BEGIN OF TABLE ENTRIES 


310 


001 542 * 


012702 


000005 






MOV 


#5,R2 


jNQ, OF ENTRIES 


3 i i 


001546* 


M12021 






3$ 1 


MOV 


(P0)+» (Rl )+ 


ISTORE AN ENTRY 


312 


001550* 


005302 








DEC 


R2 


fCOUNT IT 


313 


001 5S2 * 


001375 








BNE 


3$ 


JDO MORE 


3 ! 4 


001 554 * 


012767 


000007 


176510 


181 


MOV 


#7,0NCEE 


|SET ONE TIME ONLY FLAGS 


315 


001 562 * 


1 05067 


003772 






CLRB 


FLAG 


I CLEAR FLAGS 


316 


1 5 6 6 * 


v 16767 


176222 


176554 




MOV 


DVID 1 , DVICE 


f GET DRIVE INDICATOR 


3 1 7 


001 57 4 ' 


016767 


176550 


176550 


DAOST! 


MOV 


DVICE, DRIVE 


J ALSO SAVE IT IN DRIVE 


318 


001 602* 


016706 


176224 






MOV 


SP0INT,R6 


f RESTORE STACK POINTER 


3 t 9 


00 1 606 * 


012767 


177777 


176442 




MOV 


*-l , BLK 1 


I INITIALIZE BLOCK COUNTER 


320 


00161 4* 


012767 


177777 


176542 




MOV 


#-1 ,UNITN0 


? INITIALIZE DEVICE COUNTER 


321 


001 622 * 


122737 


00001 1 


000041 




CMPB 


11 1 ,£#4l 


»IF RP IS THE LOAD MEDIUM THEN 


322 


001630* 


001021 








BNE 


3$ 


I BEGIN 


32 3 


00 1 6 3 2 * 


J 1 3700 


000040 






MOVB 


a#40* p0 


J GET LOAD-DRIVE NUMBER 


324 


1 6 3 6 * 


012701 


000001 






MOV 


#1 #R1 


; INITIALIZE DRIVE MASK 


325 


001 64 2* 


105700 






5 $ I 


TSTB 


R0 


} WHILE R0>0 DO 


326 


(■'• 1 6 4 4 * 


001 403 








BEQ 


6$ 


? BEGIN 


327 


1 6 4 6 * 


006301 








ASL 


Rl 


J SHIFT DRIVE MASK TO NEXT DRIVE 


328 


n 1 6 5 11 ' 


1W5300 








DECB 


P0 


} DOWNCOUNT DRIVE t 


329 


s-i' 1 65 2 * 


00077 3 








BP 


5$ 


I END 


330 


001654* 


1 30167 


176472 




6$ I 


BITE 


Rl ,PPIVE 


? IF LOAD-DRIVE IS SELECTED , THEN 


331 


00 1660' 


001405 








BEQ 


3S 


J BEGIN 


332 


"fcl662* 


1 13767 


00(1040 


176474 




MOVB 


9#40#UNITNO 


; DEVICE NUMBER TO DROP 


333 


001670* 


004767 


001422 






JSR 


PC, DROP 


? DROP LOAD-DEVICE 


334 
















J END 


335 
















SEND 


3 36 


m 1 6 7 4 * 


4 7 6 7 


3 {■ ■ 




3S i 


JSP 


PC $ SETUP 


I SET REGISTER ADDRESSES 


337 


v.'npv. * 


00 4767 


002704 






JSP 


PC , PEEET 




3 3 8 


4; 1 704 


000400 








BR 


CT 


J CONTINUE 


3 39 


00 J 706 * 


012767 


----- 
177777 


1 76450 


CTI 


MOV 


8- 1 , U N I T N 


» I N I T UNlTNO AGAIN 


340 


i*0 t 7 1 4 * 


016767 


176430 


176430 




MOV 


DV ICE , DRIVE 


j SETUP TO FIND DRIVES 


341 


00 1 7 22 * 


005767 


176422 






TST 


DVICE 


J DROP THE MODULE ? 


34 2 




ffl 'A 1 lA If. 








B^-'E 






343 


001730* 


000167 


000250 






JNfp 


FINI 


f ¥E5 DROP MODULE 


344 
345 


001734' 








PESTPTl 








346 


4hM734' 


104415 


000000' 


000124' 




GETPAS 


BEGIN, BBUFVA 


J GET PHYSICAL ADDRESS FROM 16-BIT 


347 


001742* 


016767 


176164 


176412 




MOV 


RBUFSZ,WCNT2 


; SAVF READ BUFFER SIZE 


348 


001750* 


005467 


176406 






NEG 


WCMT2 


J GET THE 2'S COMPLEMENT 


349 


001754* 


016767 


176276 


176372 


STRTj 


MOV 


BLK 1 , BLKSA V 


j IN1T BLOCK COUNTER 


350 


001762' 








STPT1 ! 








351 


001762* 


104414 


000000' 






GWBUFS 


BKGIN 


I GET WRITE BUFFER INFORMATION 


352 


001766* 


016767 


176150 


176364 




MOV 


WPUFSZ,WCNT1 


J SAVE WRITE BUFFER SIZE 


353 


001 77 4' 


005467 


176360 




2$l 


NEG 


WCMT1 


J GET THE 2'S COMPLEMENT 
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354 


002000 * 


004767 


002174 




NEXT: 


JSR 


PC»FDUNIT 


? FIND UNIT « 


355 


00200 4 * 


016777 


176354 


177366 




MOV 


ur;iTNO,f3pHCs2 


| GET UNIT # SO BOTH PORTS 


356 
















I WILL BE LOOKING FOR SAME DRIVE 


357 


00 2012* 


005767 


176332 






TST 


DVICE 


J ANY 'DRIVES LEFT ? 


358 


002016* 


001002 








BNE 


1$ 


; YES 


359 


002020 * 


000167 


000160 






JMP 


FINI 


} NO DROP MODULE 


3bk' 


002024* 


132767 


000010 


003526 


1$: 


BITB 


#PIT3,FLAG 


1 MORE DRIVES ON SYS? 


361 


002032' 


001 401 








BEQ 


ABW 


IYES 


362 


00203 4' 


000747 








ER 


STPT 


; YES CORRECT SETUP FOP DUEL PORT RETURN 


363 


002036' 


004567 


000506 




ABW : 


JSR 


R5 , UPDATT 


J UPDATE D5K ADDR 


364 


002042' 


00 4567 


002412 






JSR 


R5f READY 


! IS DRIVE READY ? 


365 


002046' 


000402 








BP 


IS 


1 YES , CONTINUE 


366 


002050 * 


004767 


002202 






JSR 


PC#NOTRDY 


1 NOT READY, GO WAIT UNTIL IT IS 


367 


002054* 


005067 


003464 




is: 


CLP 


TPY1 


1 ZERO RETRY COUNTERS 


368 


002060' 


005067 


003462 






CLP 


TRY 3 


I 


369 


002064* 


005067 


003460 






CLR 


TPY5 




370 


002070* 


005067 


003456 






CLR 


TPY7 




371 


00207 4 ' 


005067 


00 3454 






CLR 


THY9 




372 


002100* 


005067 


003452 






CLR 


TRY 1 1 




373 


002104* 


004567 


000250 




gos: 


JSP 


R5,WRITE 


J WRITE SOME DATA 


374 


0021 10' 


0001 67 


000100 






JMp 


RETRYl 


1 IF ERRORS, TRY IT AGAIN 


375 


002114' 


132767 


000004 


003436 




BITB 


#8IT2,FLAG 


! DISK OVERFLOW ? 


376 


002122* 


001410 








BEQ 


GOA 


j NO, CONTINUE 


377 


002124' 


142767 


000004 


003426 


DAOCL: 


BICB 


#PIT2,FLAG 


1 YES, CLEAR OVERFLOW FLAG 


378 


0021 32' 


012767 


177777 


176116 




MOV 


*-l,BLKl 


I RESET BLOCK * 


379 


0021 40* 


000167 


177610 






JMP 


STRT 


f CONTINUE 


380 


002144' 


004567 


000304 




GOA : 


JSR 


R5»WRITCK 


| WRITE-CHECK THE DATA 


381 


002150* 


000167 


000072 






JMp 


RETRY2 


J IF ERRORS, TRY AGAIN 


382 


002154' 


004567 


000406 




GOB 1 


JSP 


R5# READ 


t READ THE DATA WRITTEN 


383 


002160' 


000167 


0001 14 






JMp 


RETPX3 


J IF ERRORS, TRY AGAIN 


384 


002164' 


104412 


000000' 


000126' 




CDATAS 


, BEGIN, RBUFPA 


j REQUEST FOR MONITOR TO CHECK DATA 


385 


002172* 


002174' 








.+2 




f IF ERROR, CONTINUE 


386 


002174' 








CYCLE: 








387 


002174* 


104413 


000000' 






ENDITS 


, BEGIN 


(SIGNAL END OF ITERATION, 


388 
















jMONITOR SHALL TEST END OF PASS 


389 


002200* 


000167 


17757.4 






JMp 


NEXT 


I NO, CONTINUE 


390 


k)02204' 








FINI: 








391 
392 
393 


002204' 


104410 


000000* 






ENDS, BEGIN 


1 DROP THE MODULE 


002210* 


000167 


177564 




NXTll 


JMp 


NEXT 


f GET NEXT DRIVE 


394 


002214* 


105267 


003324 




RETRYl! 


INCB 


TPY1 


J COUNT THE RETRYS 


395 


002220' 


122767 


000003 


003316 




CMPB 


#3,TRY1 


I LIMIT EXCEEDED 


396 


002226* 


001402 








BEQ 


1$ 


1 YES 


397 


002230' 


000167 


177650 






JMP 


GOS 


» NO RETRY 


398 


002234' 








IS! 








399 


002234* 


104403 


000000' 


005466' 




MSGNJ, 


BEGIN, EXCED1 


JASCII MESSAGE CALL WITH COMMON HEADER 


400 


002242* 


000167 


000064 






JMp 


NEXTA 


f GO TO NEXT DRIVE 


401 


002246' 


105267 


003273 




RETRY2 I 


INCB 


TRY2 


j COUNT THE RETRYS 


402 


002252* 


122767 


000003 


003265 




CMPB 


»3,TRY2 


1 LIMIT EXCEEDED 


403 


002260* 


001402 








BEQ 


1$ 


I YES 


404 


002262* 


000167 


177656 






JMP 


GOA 


I NO RETRY 


405 


002266* 








131 








406 


002266* 


104403 


000000* 


005474* 




MSGN$ # 


BEGIN, EXCED2 


lASCII MESSAGE CALL WITH COMMON HEADER 


407 


002274* 


000167 


000032 






JMp 


NEXTA 


1 GO TO NEXT DRIVE 


408 


002300* 


105267 


003242 




RETRY3I 


INCB 


TPY3 


I COUNT THE RETRYS 


409 


002304* 


122767 


000003 


003234 




CMPB 


#3,TRY3 


J LIMIT EXCEEDED 
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SEQ 0011 



410 002312' 001402 

411 002314* 000167 

412 002320* 

413 002320' 104403 

414 002326* 000167 



177634 

1SI 

000000' 005502' 
000000 



BEQ 1$ 

JMP GOB 

MSGN$, BEGIN, EXCED3 

JMP NEXTA 



1 YES 

J NO RETRY 

fASCZI MESSAGE CALL 
I GO TO NEXT DRIVE 



WITH COMMON HEADER 
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415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 



002332' 032767 
002346?* 001405 
002342* 004767 
002346* 104403 
tW2354* 000167 



175456 NEXTA! 



000750 

0001*00* 

177420 



BIT #BIT0,SRi » DROP THE DRIVE 

BEQ IS I NO, SKIP TO NEXT DRIVE 

JSP PC, DROP | YES, DROP OFFENDING DRIVE 

MSGNS, BEGIN, DRP fASCII MESSAGE CALL WITH COMMON HEADER 

JMp NEXT » GO ON TO NEXT DRIVE 



.MACRO LINEUP EABITS J LINE UP EA BITS FOR RHCS1 



LINEUP 

.NLIST 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

.LIST 

.ENDM 



EABITS#R0 

R0 
R0 
R0 
R0 

R0 , XMEM 



) LINE UP EA BITS FOR RHCSl 

) GET EXTENDED MEMORY BITS 

I SHIFT 4 PLACES TO THE LEFT 

I TO LINE UP WITH RHCSl 



f SAVE THE SHIFTED BITS 
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434 










i 




435 














436 


002360 * 


012767 


000161 


175702 


WRITE i 


MOV 


437 


IJ02366 * 


016777 


173766 


176776 




MOV 


438 


00237 4 * 


016777 


175534 


176772 




MOV 


439 


002402 * 


016777 


175740 


176766 




MOV 


440 


002410' 


004767 


001516 






JSR 


44 1 


00241 4 * 


016777 


175640 


177002 




MOV 


442 


002422' 


016767 


175634 


175630 




MOV 


443 










? 


LINEUP 


444 


002450 ' 


000167 


000306 






JMP 


44S 


00245 4* 


012767 


000151 


175606 


WRlTCKl 


MOV 


446 


002462 * 


016777 


175672 


176702 




MOV 


447 


002470' 


016777 


175440 


176676 




MOV 


448 


002476' 


016777 


175644 


176672 




MOV 


449 


002504 * 


004767 


001422 






JSR 


450 


002510' 


016777 


175544 


176706 




MOV 


451 


002516' 


016767 


175540 


175534 




MOV 


452 










; 


LINEUP 


453 


002544' 


000167 


000212 






JMP 


454 


002550 ' 


004767 


001 1 16 




UPDATTl 


JSP 




l>0««354 


016700 


175476 






MOV 


456 


002560' 


004767 


001172 






JSR 


457 


002564' 


000205 








RTS 


458 














459 


002566* 


012767 


000171 


175474 


READ I 


MOV 


46P 


002574' 


016777 


175562 


176570 




MOV 


461 


002602' 


016777 


175320 


176564 




MOV 


4b2 


002610* 


016777 


175532 


176560 




MOV 


463 


002616' 


004767 


001310 






JSR 


464 


002622' 


016777 


175432 


176574 




MOV 


4bS 


002631*' 


016767 


175426 


175422 




MOV 


466 












LINEUP 


467 


^026 56* 


0004 41 








BR 



..... pp DISK DRIVERS • 





• f.n&n WBTTP" FUNCTION 




Wf NT 1 • iBHWC 


i LO&n WOOD COUNT 

1 UwnU WWW*/ WWU«* 




WRUPPA . CSRHRi 


i LOAD BUFFER ADDRESS 




UofxMWn , »KrU* 


i f.n&n htaK adddeaa 

1 UUKU MAO" KUUKIiOO 




rv. # HF0OW. A 


• ruffK mp Dpa a np i vie 




C lut f RrDC 


• f nun rvi t unrB innofii 
1 uOAU tYLiNUBjR AwUK&Bo 




fVf,fiav .PVT. 


■ DIP ATODIT C AI.PIILATED PVLINDKB 




WBUFEA 


f LINE UP EA BITS FOR RHCSi 




GOGO 


» CONTINUE 




B 1 3 1 , r U"w 


• T ("1 A n bstlTTB , Hif N UB , r<lf CllMPipTflW 

I uUAD WRIT& CnkLiV r U™V.T*vn 




Wv. N I 1 , PKnWH, 


| bUAD *VUBU (.UUNT 




WBUFPA, PRHBA 


) LOAD BUFFER ADDRESS 




U5KAUH»lpRl'UA 


• r nitn nrelf inneiree 




PC , RPtfloCn 


? CntCK run RPIiJo DRiVfc. 






a r ntt r\ cvt Tur»irn unneree 
} uUAU {. liiXNUtn AUDK&53 




CYLSAV ,CYL 


> RESTORE CALCULATED CYLINDER 


ADDRESS 


Wttur fcA 


} uinb Ur &A bllo r UK FHC51 










PC^BLOCK 






BLK1,R0 






PCCONVRT 






R5 






#171#FUNC 


1 LOAD READ FUNCTION 




WCNT2»§RHWC 


J LOAD WORD COUNT 




RBUFPA, PRHBA 


! LOAD BUFFER ADDRESS 




DSKADP , PRPDA 


» LOAD DISK ADDRESS 




PC , RP06CK 


1 CHECK FOR RP06 DRIVE 




CYL,@RPDC 


I LOAD CYLINDER ADDRESS 




CYLSAV, CYL 


1 RESTORE CALCULATED CYLINDER 


ADDRESS 


RBUFEA 


J LINE UP EA BITS FOR RHCSl 




GOGO 


J CONTINUE 





RPBI DtC/XJl SYSTEM EXERCISER MODULE 



XRPBI0.pl! 0E 


-FEB-79 


09123 




46B 




016777 


175500 


176512 


469 


002666* 


012777 


00001 1 


176474 


470 


V ^2674* 


000240 






471 


W02676* 


00024<* 






472 


00 2 70H' 


104407 


000000' 




473 


0^2704 * 


104407 


0^0000' 




474 


0^2710* 


012777 


000021 


176452 


475 


002716* 


105777 


176446 




476 


002722' 


100405 






477 


002724* 


1^4407 


000000 ' 




478 


0027 30' 


104407 


000000* 




479 


002734* 


000770 






480 


0027 36' 


012777 


177777 


176442 


481 


^02744* 


012777 


040000 


176416 


482 


002752' 


016777 


175410 


176442 


483 


0M2760* 


000205 






484 










485 


002762' 


016777 


175376 


176410 


486 


002770' 


012777 


003116' 


175012 


487 


002776' 


0327b7 


001000 


175052 


488 


00 300 4' 


001434 






489 


003006' 


0.17767 


176362 


175262 


490 


00 3014' 


006267 


175260 




491 


003020' 


006267 


175254 




492 


003024' 


006267 


175250 




493 


003030' 


006267 


175244 




494 


00303 4' 


104416 


000000' 


000276' 


495 


003042* 


016777 


175234 


176324 


496 


003050' 


016777 


175230 


176362 


497 


003056* 


042767 


000034 


175220 


498 


003064* 


000367 


175214 




499 


00 3070* 


016767 


17521P 


175202 


500 


00 3^76' 


056767 


175176 


175164 


501 


003104* 


016777 


175160 


176256 


502 


003112* 


104400 


000000* 




503 










504 


003116* 








505 










506 


003116* 


000004 


000000' 


003124* 


507 










508 










509 


003124* 


004567 


000224 




510 


003130* 


000205 






511 


003132* 


005725 






512 


003134' 


005725 






513 


003136* 


000205 
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MOV 


U?' ITN0,(apHCS2 


J LOAD UNIT ADDRESS 




MOV 


# 1 1 ,@RHCS1 


J ISSUE A DRIVE CLEAR 




NOP 




•WAIT 




NOP 




JFOR DRIVE CLEAR TO FINISH 




BREAKS 


, BEGIN 


J TEMPORARY RETURN TO MONITOR.... 




BREAKS 


, BEG I Pi 


•THEN CONTINUE AT NEXT INSTRUCTION, 




MOV 


#21,BRHCS1 


1 ISSUE A PACK ACK 




TSTB 


PRhCSl 


» FUNCTION DONE ? 




BMI 


2$ 


; YES- CONTINUE 




BREAK S 


, BEGIN 


J TEMPORARY RETURN TO MONITOR.,., 




BREAKS 


, BEGIN 


1 THEN CONTINUE AT NEXT INSTRUCTION, 




BR 


IS 


I NO, WAIT TILL DONE 




MOV 


8-1 # SRPAS 


JCLEAR AS BIT 




MOV 


#BIT14,0RHCS1 


1 CLEAR ANY CONTROLLER ERRORS 




MOV 


MODI ,0RPOF 


J SET BIT FOR 11 FORMAT 




PTS 


R5 


| RETURN 




MOV 


UNITNO, 0RHCS2 


» LOAD UNIT SELECT 




MOV 


IMRUPT/0VECTOR 


J SET INTERUPT ENTRY POINTER 




BIT 


#ADDR22#RES1 


111/70? 




BEO 


1$ 


;M0 




MOV 


0PHBA,PA18 


| GET 18 BIT ADDP 




ASR 




JSHIFT EA BITS TO POSITION 4,5 




ASR 


XMEM 






ASP 


XMEM 






ASR 


X'*EM 






HAP22S 


, BFGIN,PA18 


? GET 22-BIT ADDR FROM 18-BIT 


ADDF 


MOV 


PA22#PRHBA 


I LOAD BA PEG 




MOV 


EA22,0RHBAE 


JLOAD BAE REG 




BIC 


#34,EA22 


f CLEAR UNWANTED BITS 




SWAB 


EA22 


} LOAD INTO BITS 8,9 




MOV 


EA22 # XMEM 


I LOAD XMEM TO SET INTO FUNCTION CODE 




BIS 


XMEM i FUNC 


? LOAD EXTENDED MEMORY BITS 




MOV 


FUNC,0RHCS1 


f EXECUTE THE FUNCTION 




EXITS, 


BEGIN 


f EXIT TO MONITOR, MODULE WAIT 


FOR 


PIRGS, 


BEGIN # 1S 


| QUEUE UP TO CONTINUE AT IS AND PTI 




JSR 


R5 i ERRORS 


| GO CHECK FOR ERRORS 




RTS 


R5 


> ERRORS DETECTED, RETURN 




TST 


(R5) + 


j NO ERRORS, SKIP RETRY 




TST 


(P5) + 






RTS 


R5 


f RETURN OK 
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SEQ 0015 



514 


003140' 


016700 


175112 


515 


003144' 


016703 


174772 


516 


003150' 


132767 


000002 


517 


003156' 


001451 




518 


003160' 


142767 


000001 


519 


003166' 


016701 


175124 


520 


003172' 


162701 


000003 


521 


003176* 


005002 




522 


003200' 


160001 




523 


003202' 


022701 


000100 


524 


003206' 


003435 




525 


003210' 


022701 


000040 


526 


003214' 


003005 




527 


003216' 


152767 


000001 


528 


003224' 


162701 


000040 


529 


003230' 


005701 




530 


003232* 


003425 




531 


003234* 


062702 


002000 


532 


003240' 


005301 




533 


003242* 


003372 




534 


003244' 


005703 




535 


003246' 


100007 




536 


003250' 


042703 


100000 


537 


003254' 


132767 


000001 


538 


003262' 


001411 




539 


003264' 


000404 




540 


003266' 


132767 


000001 


541 


003274' 


001002 




542 


003276' 


020203 




543 


003300* 


002402 




544 








545 


003302* 


005725 




546 


003304' 


000205 




547 


003306* 


152767 


000004 


548 


003314* 


000205 




549 








550 








551 


003316* 


012701 


000001 


552 


003322' 


016700 


175036 


553 


003326' 


001403 




554 


003330* 


006301 




555 


003332' 


005300 




556 


003334* 


001375 




557 


003336* 


040167 


175006 


558 








559 








560 








561 


003342' 


104420 


000000 


562 


003350' 


005534' 




563 








564 


003352' 


000207 




565 









ROOM| 



MOV 


BLK1 , R0 


) SAVE THE CURRENT BLOCK NUMBER 


MOV 


WBUFSZ»R3 


f GET THE TRANSFER SIZE 


BITB 


»BIT1 ,FLAG 


» PLENTY OF ROOM LEFT ? 


BEG 


48 


f YES* CONTINUE 


BICB 


*BIT0,FLAG 


) CLEAR 32K INDICATOR 


MOV 


MHICYiRl 


I LOAD MAX • NUMBER OF BLOCKS 


SUB 


#3, PI 




CLR 


R2 


f ZERO REG, 2 


SUB 


R0,R1 


f GET NUMBER OF BLOCKS LEFT ON DISK 


CMP 


#64.,R1 


f MORE THAN 64 BLOCKS LEFT ? 


BLE 


43 


i YES 


CMP 


«32.,R1 


t MORE THAN 32K LEFT ? 


BGT 


1$ 


; NO, CONTINUE 


BISB 


#B IT0 , FLAG 


t YESf SET THE INDICATOR 


SUB 


*32.»R1 


| SUBTRACT 32K WORTH OF BLOCKS 


TST 


Rl 


J ANY BLOCKS LEFT ON DISK ? 


BLE 


5$ 


1 NO, RETURN OK 


ADD 


#1024. ,R2 


I GET TOTAL » OF WORDS LEFT 


DEC 


R 1 


j ALL BLOCKS ADDED IN ? 


BGT 


18 


I NO, KEEP ADDING 


TST 


R3 


j REQUEST LARGER THAN 32K ? 


BPL 


26 


| NO, GO CHECK THAT CONDITION 


BIC 


#BIT15,R3 


| YES, GET RID OF 32K 


BITB 


#BIT0» FLAG 


? MORE THAN 32K LEFT ? 


BEQ 


5$ 


j NO, RETURN OK 


BR 


3S 


1 YES, GO COMPARE 


BITB 


#BIT0,FLAG 


1 MORE THAN 32K LEFT ? 


BNE 


4$ 


1 YES, PLENTY OF ROOM, ERROR 


CMP 


R2,P3 


> ENOUGH ROOM FOR THE TRANSFER ? 


BLT 


5$ 


I NO, RETURN OK 


TST 


CP53 + 


| YES, MUST BE A REAL ERROR 


PTS 


R5 


I RETURN, ERROR 


BISB 


#BIT2#FLAG 


| SET OVERFLOW FLAG 


PTS 


P5 


J RETURN OK 



MOV »1 ,R1 ; INITIALIZE DROP PICKER 

MOV UMTNO,R0 J GET THE DRIVE NUMBER 

BEQ 2S J IF DRIVE GO DROP IT 

ASL Rl f POINT TO NEXT DRIVE 

DEC R0 J IS THIS THE ONE ? 

BNE IS ? NO, LOOK AGAIN 

BIC Rl,DVICE ; DROP THE DRIVE 

j ########♦#######*♦####«####♦##*####**##**#♦####*###*#####»####* 

CONVERT UNITNO TO ASCII AND 
STORE AT ADPi 
OTOAS, BEGIN, UNITNO, ADR 1 

{ 

PTS PC I RETURN 
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566 


003 35 4' 


005777 


176"10 




errors: 


TST 


PPhCSl 


J ATTENTION OR ERROR ? 


567 


0C3 360' 


100402 








BMI 


22S 


JYES 


56? 


003362' 


000167 


000300 






J MP 


RESYNC 


;NO GO ON TO NEXT FUNTION 


569 


00 3 366* 


032777 


001000 


176010 


22SI 


BIT 


#BlT9,iPPERl 


; ADDRESS OVERFLOW ? 


570 


0^)3374* 


001403 








BEQ 


1$ 


5 NO, CONTINUE 


571 


003376* 


004567 


177536 






JSR 


R5,ROOM 


! YES# IS IT A REAL ERROR ? 


572 


003402* 


000531 








BP 


RESYNC 


f NO, CONTINUE 


573 


003 40 4* 


032777 


002000 


175770 


1$I 


BIT 


#MTl0,<apPDS 


»DID LBT SET? 


574 


003412' 


001 125 








BNE 


RESYNC 


iYES 


575 


003414* 


004767 


001152 






JSR 


PCERSUBl 


J LOAD ERROR INFORMATION 


576 


0H3420' 


005777 


175754 






TST 


0RHCS2 


;IS THIS A DATA LATE ERROR? 


577 


003424' 


1 00012 








BPL 


11$ 


JNO 


578 


003 426' 


005267 


174620 






INC 


DLTCNT 


; ADD 1 TO DATA LATE COUNTER 


579 


"034 32 ' 


032767 


000004 


174356 




BIT 


#BIT2,SR1 


J TYPE ERROR AND COUNT IT? 


580 


003440* 


001 107 








BNE 


8S 


I NO 


581 


003442' 


104403 


000000* 


005510' 




MSGNS, 


BEGIN, DLTERR 


JASCII MESSAGE CALL WITH COMMON HEADER 


582 


003450* 


000440 








BR 


9$ 


>CONT 


583 


003452' 


032777 


020000 


175710 


11SI 


BIT 


#BIT13,0RHCS1 


J MASSBUS CONTROL PARITY ERROR ? 


584 


003460* 


001043 








BNE 


38 


> YES 


585 


003462' 


032777 


000 400 


175710 




BIT 


#RIT8,@RHCS2 


J MASSBUS DATA PARITY ERROR ? 


586 


•403470' 


001043 








BNE 


4S 


J YES 


587 


003472* 


032777 


040000 


175670 




BIT 


#BITl4,iaRHCSl 


J TRANSFER ERROR ? 


588 


003500* 


001015 








BNE 


28 


J YES 


589 


00 3502' 


032777 


040000 


175672 




BIT 


#BlT14,<aRPD5 


1 ANY DRIVE ERRORS ? 


590 


003510' 


001036 








BNE 


58 


i YES 


591 


003512* 


005777 


175670 






TST 


PRPAS 


1 ANY ATTENTIONS ACTIVE ? 


592 


003516' 


001033 








BNE 


58 


I YES, CONTINUE 


593 


003520' 


005067 


174362 






CLR 


EPRTYP 


| UNKNOWN ERROR 


594 












; «#•»«#»«#**««»*«**»««*■»#*#*#»«««#«»«*#«»«««****«**#*««#*«#**##*« 


595 


003524* 


104405 


000000' 


001370' 




HPDERS 


, BEGIN, TABLE 


» SPECIAL CONDITION SET BUT NO REASON FOUND 


596 












;##**«»##««#*#«*####»«#««**«**«»#«*##*#**#««««*«»#*«««#*«****»#* 


597 


003532' 


000452 








BR 


8$ 


f RETURN 


598 


003534' 








2$: 








599 


003534* 


104403 


000000' 


005452' 




MSGNS, 


BEGIN, TRERR 


J ASCII MESSAGE CALL WITH COMMON HEADER 


600 


003542* 


032777 


062000 


175630 




BIT 


#BIT141BIT131BIT 


10,8RHCS2 JSOFT ERROR? 


601 


003550' 


001416 








BEQ 


58 


I HARD ERROR 


602 


003552' 


012767 


000030 


174326 


9 $ I 


MOV 


»30,ERRTYP 




603 












• ««***««***«**««**««*«**«**«*«#«#*««««**#*#»**«#»*####*#«*#*#«**« 


604 


003560' 


104406 


000000' 


001370' 




SOFERS 


, BEGIN, TABLE 


^TRANSFER ERROR 


605 












1 **************************************************************** 


606 


003566' 


000434 








BR 


8$ 




607 


003570' 








3$l 








608 


003570' 


104403 


000000' 


005456' 




MSGNS, 


BEGIN, MCPERR 


; ASCII MESSAGE CALL WITH COMMON HEADER 


609 


003576' 


000403 








BR 


5$ 


J GO DUMP REGISTERS 


610 


003600' 








4$l 








611 


003600' 


104403 


000000' 


005462' 




MSGNS, 


BEGIN, MDPERR 


JASCII MESSAGE CALL WITH COMMON HEADER 


612 


003606* 


005777 


175574 




5St 


TST 


gSPPAS 


J ANY ATTENTIONS ACTIVE ? 


613 


003612' 


001402 








BEQ 


6$ 


j NO, CONTINUE 


614 


003614* 


004767 


000566 






JSR 


PC, WHO 


I YES, FIND OUT WHICH DRIVE IT IS 


615 


003620' 


016700 


175566 




651 


MOV 


RHDB#R0 


I SAVE ADDRESS OF DATA BUFFER 


616 


003624' 


105777 


175550 






TSTB 


(8PHCS2 


f CAN DATA BUFFER BE READ ? 


617 


003630' 


100403 








BMI 


78 


I YES, CONTINUE 


618 


003632* 


012767 


000344* 


175552 




MOV 


#ZEPO,RHDB 


» NO, LOAD ADDRESS OF ZERO 


619 


003640* 


012767 


000030 


174240 


7SI 


MOV 


#30,ERRTYP 


I ERROR DURING DATA XFER 


620 












j ####*♦#######•#########*#######♦#######*#*#########*#####♦####» 


621 


003646* 


104405 


000000* 


001370' 




HRDERS 


,BEGIN # TABLE 


1 DUMP RH11 AND RP REGISTERS 
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622 | #»«»#«•«*##»**«•«*«*»#*»*««*«*»«•*••««#«•*»«»#«»*«««»»«««»*«««* 

623 003654' 010067 175532 MOV P0,RHDB j RESTORE DATA BUFFER ADDRESS 

624 003660* 004567 176774 8$| JSR R5, CLEAR f GO CLEAR OUT ERRORS 

625 ('03664' 000205 PTS R5 j ERRORS DETECTED, RETURN 
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XRPBI0.P11 08 


-FEB-79 


09123 


626 


003666* 


005725 




627 


00 36 70* 


(-'W0205 




628 








629 








63^ 








631 








632 








633 








634 


iH)3672' 


005267 


174360 


635 


*»P3676' 


1 32767 


0001402 


636 


v53704' 


001012 




637 


00 3706 ' 


026767 


174402 


638 


K03714' 


101017 




639 


003716* 


H05067 


174334 


640 


0t>37 22 # 


152767 


000002 


641 


c>')37 30' 


000411 




b42 








643 


D03732' 


026767 


174360 


644 


k'w3740 # 


101005 




645 


0M3742' 


005067 


174310 


646 


^V3746* 


142767 


00^002 


647 


15^3754* 


000207 





PESYNCJ TST 
RTS 



(P5) + 
P5 



1 NO ERRORS, SKIP RETRY 
J RETURN OK 



;THIS ROUTINE DETFPflNES IF THERE IS ENOUGH ROOM ON THE DISK TO 
;D0 ANOThFR TRANSFER. IF NOT, PROGRAM GOES TO RESYNC TO 
; ALLOW BOTH PROCESSORS TO RESYNC AND TO RESTART. 



BLOCK j 


INC 


BLM 




; STEP TO NEXT BLOCK 








BITB 


#BIT1, 


FLAG 


J BLOCK « IN CYLINDER 512, 


OR 


HIGHER ? 




BNE 


1$ 




; YES, GO ADJUST BLOCK # 








CMP 


MLOWCY,BLKl 


J BLOCK # IN CYLINDER 512. 


OR 


LOWER ? 




BH1 


2S 




f YES, RETURN 








CLR 


BLK1 




J NO, RESET BLOCK * 








BISB 


#RIT1, 


FLAG 


; SET HIGH RANGE FLAG 








BP 


2$ 




» RETURN 






1SJ 


CMp 


MHICY, 


BLK1 


I BLOCK # IN WITHIN RANGE 


? 






BHI 


2S 




J YES, RETURN 








CLR 


BLKt 




> NO, RESET BLOCK » 








BICB 


#BIT1, 


FLAG 


I SET FLAG TO LOWER RANGE 


FOR 


NEW PACK CYCLE 


2S: 


PTS 


PC 




I RETURN 
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SEQ 0019 



648 


003736' 


005067 


174276 




CONVRTI 


CLR 


CYL 


! CLEAR DISK ADDRESSES 


649 


003762' 


00506? 


174276 






CLR 


SIC 




6S0 


003766' 


103067 


001567 






CLPB 


TRK 


• 


6S1 


003772* 


016701 


174312 






MOV 


MBLKTR,Ri 


I LOAD REG, 1 WITH BLK PER TRACK 


6S2 
















) REG HAS BLK1 (BLOCK #) IN IT 


633 


003776' 


016702 


174304 






MOV 


MBLKRV, R2 


f LOAD REG, 2 WITH BLK PER REVOLUTION 


654 


004002' 


132767 


000002 


001550 




BITB 


IBIT1 » FLAG 


f BLOCK » ON CYLINDER 512, OR LOWER ? 


6SS 


004010* 


001403 








BEQ 


1$ 


f YES , CONTINUE 


6S6 


004012' 


012767 


000632 


174240 




MOV 


#410t ,CYL 


t NO, LOAD HIGH BASE VALUE FOR CYLINDER ADR 


6S7 


004020' 


020001 






111 


CMP 


R0# Rl. 


1 CORRECT CYLINDER FOUND ? 


658 


004022' 


103404 








BLO 


21 


| YES, CONTINUE 


639 


004024* 


003267 


174230 






INC 


CYL 


| NO, STEP TO NEXT CYLINDER 


660 


004030* 


160100 








SUB 


Rl ,R0 


) SUBTRACT 1 CYLINDER FROM BLOCK # 


661 


004032' 


000772 








BR 


19 


| CONTINUE UNTIL CORRECT CYLINDER IS FOUND 


662 


004034' 


020002 






2$! 


CMP 


R0i R2 


J CORRECT TRACK FOUND ? 


663 


004036' 


002404 








BLT 


3$ 


| YES, CONTINUE 


664 


004040' 


105267 


001515 






INCB 


TRK 


I NO, STEP TO NEXT TRACK 


663 


004044' 


160200 








SUB 


R2,R0 


J SUBTRACT 1 TRACK FROM BLOCK # 


666 


004046' 


000772 








BR 


29 


t CONTINUE UNTIL CORRECT TRACK IS FOUND 


667 


004050' 


005700 






331 


TST 


R0 


1 CORRECT SECTOR FOUND ? 


668 


004052 * 


001405 








BEQ 


4$ 


J YES, CONTINUE 


669 


004054' 


062767 


000004 


174202 




ADD 


#4, SEC 


1 NO, STEP TO NEXT 1024 WORDS 


670 


004062' 


005300 








DEC 


R0 


} DECREASE BLOCK # BY 1 


671 


004064' 


000771 








BR 


38 


I CONTINUE UNTIL CORRECT SECTOR IS FOUND 


672 


004066' 


122767 


000022 


001465 


411 


CMPB 


#18., TRK 


| LAST TRACK ? 


673 


004074' 


001007 








BNE 


5S 


t NO, CONTINUE 


674 


004076* 


026767 


174210 


174160 




CMP 


MODE, SEC 


f YES, LAST SECTOR ? 


675 


004104' 


001003 








BNE 


58 


1 NO, CONTINUE 


676 


004106' 


162767 


000002 


174150 




SUB 


#2, SEC 


I YES, ADJUST SECTOR SO NO OVERFLOW 


677 


004114* 


016767 


174144 


174224 


SSI 


MOV 


SECDSKADR 


» LOAD SECTOR INTO DISK ADDRESS 


678 


004122* 


116767 


001433 


174217 




MOVB 


TRK,DSKADP+1 


t LOAD TRACK INTO DISK ADDRESS 


679 
680 
681 
682 


004130* 


000207 








RTS 


PC 


> RETURN 


004132* 


016767 


174122 


174122 


RP06CKI 


MOV 


CYL,CYLSAV 


JSAVE THE CALCULATED ADDRESS 


683 


004140* 


022777 


024022 


175250 




CMp 


#24022, BRPDT 


JDUAL PORT RP06 ? 


684 


004146' 


001413 








BEQ 


1$ 


J YES 


685 


004150* 


022777 


020022 


175240 




CMP 


#20022, PRPDT 


J NO, , .SINGLE PORT RP06 ? 


686 


004156* 


001407 








BEQ 


IS 


lYES 


687 


004160* 


132767 


000002 


001372 




BITP 


#RIT1,FLAG 


JNO. , .RP04/5 - HI-RANGE BIT SET ? 


688 


004166* 


001403 








BEQ 


1 s 


jNQ.., DON'T WORRY ABOUT UPPER CYLINDERS 


689 


004170' 


162767 


000632 


174062 




SUB 


#410., CYL 


J YES • . . TRUNCATE HI-RANGE RP06 ADDRESS INTO 


690 
















>410 CYLINDER RP04/RP05 RANGE 


691 
692 
693 


004176* 


000207 






1SI 


PTS 


PC 
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694 
695 
696 
b97 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 



M04 200* 
004204' 
0^4212* 
(104220* 
004222' 006267 
Wfr'4226* 103364 
0042 30* 
004232' 
GH4240* 
Wl'4246* 
004254' 



005267 
142767 
022767 
591404 



000411 
152767 
012767 
016767 

000207 



S 74160 

000010 
0000 lvl 



000010 
177777 
174^76 



001346 
174144 



001320 
174116 
174076 



MACYH 


30A(lfc 


3523 08-FEB-79 i 


39126 PAGE 21 


FDUNITI 


INC 


UMTNO 


I COUNT A DRIVE 




BICB 


»PIT3,FLAG 


; CLEAR END OF DRIVES FLAG 




CMp 


#8. ,UNITN0 


> ALL DRIVES CHECKED ? 




BEQ 


1$ 


; YES, GO FLAG END OF DRIVES 




ASR 


DRIVE 


1 NO, IS NEXT DRIVE CHOSEN ? 




BCC 


FDUMT 


} NO, GO TRY ANOTHER DRIVE 




BR 


2$ 


? RETURN 


1 8 1 


BISB 


#BIT3 , FLAG 


J SET END OF DRIVES FLAG 




MOV 


#-l,UN!TNO 


J RESET DRIVE COUNTER 




MOV 


DVICE, DRIVE 


; RESTORE CHOSEN DRIVES 


2$t 


RTS 


PC 


I RETURN 


; SEIZE 


THE DRIVE BY READING Ci 


31 REG 



710 


004256' 


012767 


077777 


173770 


NOTRDYI 


MOV 


#77777, CLK 


f SET THE TIMER 


711 


004264' 


005077 


175136 




4$t 


CLR 


PRPCC 


} GRAB THE DRIVE 


712 


004270' 


032777 


004000 


175072 




BIT 


#PITH,ORHCSl 


JDO I HAVE THE DRIVE DVA? 


713 


004276' 


001013 








BNE 


2$ 


>YES 


714 


004300' 


104407 


000000* 






BREAKS 


, BEG IN 


| TEMPORARY RETURN TO MONITOR.,.. 


715 


004304* 


104407 


000000' 






BREAKS 


, BEGIN 


| THEN CONTINUE AT NEXT INSTRUCTION, 


716 


004310* 


005367 


173740 






DEC 


CLK 


ICOUNT # OF TRIES 


717 


004314* 


001363 








BME 


4$ 


? NOT DONE YET 


718 


004316* 


104403 


000000' 


005514' 




MSGN8 , 


BEGIN, NOT » ASCII 


MESSAGE CALL WITH COMMON HEADER 


719 


004324* 


000405 








BP 


5$ 


tCOULD NOT GET DRIVE 


720 


004326' 


004567 


176326 




281 


JSR 


R5, CLEAR 


1 RESET THE CONTROLLER AND DRIVE 


721 


004332' 


004567 


000122 






JSP 


R5, READY 


> IS DRIVE READY ? 


722 


004336* 


000422 








BR 


IS 


J YES, CONTINUE 


723 


004340' 


004767 


000226 




581 


JSR 


PCERSUBl 


» LOAD ERROR INFORMATION 


724 


004344* 


012767 


000006 


173534 




MOV 


#6 , ERRTYP 


JDEVICE OFF LINE 


725 












i *************************************************************** 


726 


004352' 


104405 


000000* 


001370' 




HPDERS 


, BEGIN, TABLE 


> COULD NOT GET DRIVE ... TIME-OUT 


727 












1 *************************************************************** 


728 


004360' 


012777 


000013 


175002 




MOV 


#13,(3RHCS1 


> RELEASE DRIVE 


729 


004366' 


004767 


176724 






JSR 


PC, DROP 


t NO, DROP THE DRIVE 


730 


004372' 


104403 


000000' 


005524' 




MSGNS, 


BEGIN, DRP jASCII 


MESSAGE CALL WITH COMMON HEADER 


731 


004400* 


000167 


175600 






JMp 


FINI 


ICOULD NOT GET DRIVE DROP MODULE 


732 


004404* 


000207 






181 


RTS 


PC 


? RETURN 



733 
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SEQ 0021 



734 


004406 * 


017701 


174774 


735 


0044 1 2 " 


017704 


174762 


735 


ly ^ it a w 


012702 


00000 | 


lit 


004422 * 


KfVS vv J 




738 


004424 * 


01 16190 1 




739 




v%> 1 V W V 




740 


004430 * 


4 2 H 1 

if v 9 « l£7 






004432 ' 


iPiy w ly a 




742 


004434 ' 


032702 


0)010140101 


743 


Hd44 1« ' 






744 


004442 ' 


000207 




74S 


MCI A A A A * 


Oi A O 1 01 A 

Yin £ l v n 




746 


004450 * 


if aw 310^1 




747 




010477 


174722 


748 


00 ^ 455 * 


oi a a 9 a "j 












750 








751 


4^04460 ' 


016777 


1 7 ^7 Wti 


752 


W W d d ft fi » 


W * / / YIW 


174710 


753 




i car "1 aa 
1 103 / low 




754 


W W 9 t / *f 


\<fl\Ow££ 




755 


I I/O 


wit IVIfo 


fil rjl #31 1 W fll 

» M n I (r k> 


756 


£1 fcl A •? CI *5 * 






757 


004504 " 


32700 


000400 


758 


t> 4 5 1 * 


001 4 1 4 




759 


0045 1 2 * 


032700 


004000 


760 


(Hi 4 5 1 6 ' 


001 1 1 




761 


4 5 2 * 


032700 


01000M 


762 


W }4524 * 


00 1406 




763 


'H)4526 * 


032700 


040000 


764 


004532 " 


001003 




765 


0045 34 » 


005700 




7 b6 


0045 36 * 


100401 




767 


004540 * 


000205 




768 


004542 ' 


005725 




769 


004544 * 


000205 




770 








771 








772 








773 


004546' 


014167 


173334 


774 


004552* 


010167 


173324 


775 


004556* 


014267 


173326 


776 


004562' 


010267 


173316 


777 


004566' 


005721 




77? 


00457vi» 


005722 




779 








78(* 


004572' 


016767 


174572 


781 


00460^' 


H17767 


174564 


782 


kH'4606' 


000207 





2SI 



174712 READY | 



MOV 






MOV 






MOV 


»BXT0,R2 


1 SET POINTER fO DRIVE 




R3 




BIT 


R2,R1 


» FIND IT 1 




26 




INC 


R3 




ASL 


R2 


i AFT PATNTVP TO urVT nD T VR 1 








nro 


1 $ 


■ kin . fin htih tm 


PTS 


PC 




BIC 


# 7 # R4 




BIS 


R3»R4 


m T nkA mtie< MCI.1 tiMf m KI ( t kl B tT n 

I uuAD THE N&W UN XT NUMBER 


MOV 


d a a our c i 




RTS 
"*"""" 


PC 

w - 


I KblURN 




tlNTTWfi aPHfCfS 
U n 1 1 li U i pnnl, O 4 


J uunU UNI 1 HMUnboi) 






1 OftVt OlAiUO IN KB 


If* 




t nisivir DPiinv 9 


BPL 


1 $ 




BIT 


hot ft. an 


f VULUMt VALiU f 








BIT 


#RIT8,R0 


' DRIVE PRESENT ? 


BEQ 


1$ 


> NO 


BIT 


#BITH,R0 


I WRITE LOCKED ? 


BNE 


1$ 


J YES 


BIT 


# BI T 1 2 1 R0 


1 MEDIUM ON LINE ? 




1 S 


! NO 


B IT 


8RTT1 4 . am 


I ANY ERRORS ? 








TST 


Rfl 


* 4TTR"NTTnhi ^I«"T ? 
| HJ IE." J iUW Ot* 1 


BMI 


IS 


J YES 


RTS 


R5 


I RETURN READY 




(R5 ) + 


1 SKID TN^TBlJfTlON FOLLOWING C &LL 


PTS 


R5 


1 RETURN AS NOT READY 


MOV 


-CR1),ASB 


J LOAD THE DATA 


MOV 


R 1 » SBADp 


I LOAD ADDRESS OF DATA WRITTEN 


MOV 


-(R2> r AWAS 


I LOAD THE DATA 


MOV 


R2,WASADR 


J LOAD ADDRESS OF DATA PEAD 


TST 


(Pl) + 


| RESET REG. 1 


TST 


(R2) + 


> RESET REG, 2 


MOV 


RHCS1,CSRA 


| LOAD ADR OF CURRENT CSR 


MOV 


8PHCS1#ACSR 


t LOAD CONTENTS OF CURRENT CSR 


PTS 


PC 


% RETURN 
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783 
784 
785 
786 
787 
788 



789 


0^461^' 




000P40 


174562 


PEZETi 


MOV 


#BIT5,0RHCS2 


? ISSUE AN RH11 1N1T 


790 


0(^4616' 


012777 


177777 


174562 




MOV 


#-1 ,@RPAS 


ICLEAR ALL ATA BITS 


791 


004624' 


012767 


077777 


173422 




MOV 


#77777, CLK 


> SET THE TIMER 


792 


004632* 


105777 


174532 




IS J 


TSTB 


»RHCS1 


! CONTROLLER READY ? 


793 


004636* 


100417 








BMI 


2S 


} YES, CONTINUE 


794 


0^464^' 


104407 


00fc>0fr>0* 






BREAKS 


BEGIN 


> TEMPORARY RETURN TO MONITOR.,,. 


795 


(-M4644' 


104407 


000001^' 






BREAKS 


PEG IN 


> THEN CONTINUE AT NEXT INSTRUCTION, 


796 


00465^' 


005367 


17 3400 






DEC 


CLK 


I WAIT SOME MORE ? 


797 


004654* 


001366 








BNE 


IS 


f YES 


798 


0W4656* 


005067 


173466 






CLR 


DVICE 


? NO, SET TO DROP THE MODULE 


799 


004662' 


012767 


000003 


173216 




MOV 


# 3 # ERRTYP 


JCONTROLLER NOT READY 


800 














801 


00 4670' 


104405 


00000W* 


001370' 




HPDERS 


BEGIN, TABLE 


> CONTROLLER NOT READY 


802 














803 


fr'04676' 


000207 






2$J 


RTS 


PC 


t RETURN 
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80S 


004700' 


016700 


173102 


SETUPI 


MOV 


ADDR,R0 


806 


004704' 


010067 


174460 




MOV 


R0,RHCS1 


807 


004710' 


005720 






TST 


CR0H 


808 


004712* 


010067 


174454 




MOV 


R0,RHWC 


809 


004716' 


005720 






TST 


(R0) + 


810 


004720' 


010067 


174450 




MOV 


R0,RHBA 


811 


004724* 


005720 






TST 


(R0) + 


812 


004726' 


010067 


174444 




MOV 


R0,PPDA 


813 


004732' 


005720 






TST 


CR0)t 


814 


004734' 


010067 


174440 




MOV 


R0,RHCS2 


815 


004740* 


005720 






TST 


(R0) + 


816 


004742' 


010067 


174434 




MOV 


R0,RPDS 


817 


004746* 


005720 






TST 


(R0) + 


8|8 


004750* 


010067 


174430 




MOV 


R0,RPERl 


819 


004754* 


005720 






TST 


(R0) + 


820 


004756' 


010067 


174424 




MOV 


R0,RPAS 


821 


004762' 


005720 






TST 


CP0H 


822 


0047 64' 


010067 


174420 




MOV 


R0,RPLA 


823 


004770' 


005720 






TST 


(P0) + 


824 


004772' 


010067 


174414 




MOV 


R0,PHDB 


825 


004776* 


005720 






TST 


(R0) + 


826 


005000* 


010067 


174410 




MOV 


R0 i RPMR 


827 


005004* 


005720 






TST 


(P0) + 


828 


005006' 


010067 


174404 




MOV 


R0,RPDT 


829 


005012' 


005720 






TST 


(R0H 


830 


005014' 


010067 


174400 




MOV 


R0 # RPSN 


831 


005020* 


005720 






TST 


(R0) + 


832 


005022* 


010067 


174374 




MOV 


R0,RPOF 


833 


005026* 


005720 






TST 


CP0H 


834 


005030' 


010067 


174370 




MOV 


R0»RPDC 


835 


005034' 


005720 






TST 


CR0) + 


836 


005W36' 


010067 


174364 




MOV 


R0,PPCC 


837 


005042' 


005720 






TST 


(R0) + 


838 


00504 4' 


010067 


174360 




MOV 


R0,RPER2 


839 


005050' 


005720 






TST 


(R0) + 


840 


005052' 


010067 


174354 




MOV 


R0,RPER3 


841 


005056* 


005720 






TST 


(R0) + 


842 


005060 ' 


010067 


174350 




MOV 


R0,RPECl 


843 


005064' 


005720 






TST 


(R0) + 


844 


005066* 


010067 


174344 




MOV 


R0,PPEC2 


845 


00507 2* 


032767 


001000 172756 




BIT 


#ADDR22,PES1 


846 


005100* 


001406 






BEG 


IS 


847 


005102* 


005720 






TST 


(P0) + 


848 


005104* 


010067 


174330 




MOV 


RP,RHBAE 


849 


0051 10' 


005720 






TST 


(R0) + 


850 


005112' 


010067 


174324 




MOV 


R0,PHCS3 


851 


005116* 


016700 


172666 


IS! 


MOV 


VPCTOR#R0 


852 


005122' 


012720 


001754* 




MOV 


ffSTPT, (P0)+ 


853 


005126' 


1 16710 


172660 




MOVB 


BPl t CP0) 


854 


0'->5l 32' 


ffl 0207 




2SI 


RTS 


PC 



I GET DEVICE ADDRESS 

f GENERATE REGISTER ADDRESSES 



111/70? 
>N0 



I GET VECTOR ADDRESS 

! SET POINTER JUST IN CASE 

J SET PRIORITY 

> RETURN 
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MACYH 30AC1052) G8-FEB-79 09126 PAGfc 25 



XRPBI0, 


Pit 0f 


!-FEB-79 


09823 












855 


v-«"5! 34' 


020040 


051124 


047101 


MES1! 


.ASCIZ 




TRANSFER ERR0R% ' 


856 


0051 42' 


043123 


051105 


020040 










857 


005150* 


051 105 


047522 


022522 










858 


005156* 


000 














859 


005157' 


040 


046440 


051501 


MES2I 


.ASCIZ 




MASSBUS PARITY ERROR% ' 


860 


005164 ' 


041 123 


051525 


020040 










861 


005172' 


040520 


044522 


054524 










862 


005200* 


020040 


051105 


047522 










863 


005 206 ' 


022522 


000 












864 


00521 1 ' 


040 


046440 


051501 


MES3 I 


.ASCIZ 




MASSBUS DATA PARITY ERROR% 


865 


005216' 


041123 


051525 


020040 










866 


005224* 


040504 


040524 


020040 










867 


005232' 


040520 


044522 


054524 










868 


005240' 


020040 


051 105 


047522 










869 


005246' 


022522 


000 












870 


005 251 * 


040 


042040 


044522 


KES4I 


.ASCIZ 




DRIVE ' 


871 


005256* 


042526 


020040 


000 










872 


005 26 3' 


040 


042040 


047522 


MESS I 


.ASCIZ 




DROPPED%' 


873 


005270' 


050120 


042105 


000045 










874 


005276' 


051040 


052105 


054522 


MES6 % 


.ASCIZ 




RETRY EXCEEDED%* 


875 


005304* 


042440 


041530 


042505 










876 


005312' 


042504 


022504 


000 










877 


005317' 


040 


020040 


051127 


MES7 t 


.ASCIZ 




WRITE ' 


878 


005 32 4' 


052111 


000105 












879 


005 3 30' 


020040 


053440 


044522 


MES8 ! 


.ASCIZ 




WPITE-CHECK' 


880 


005 3 36' 


042524 


041455 


042510 










881 


005 344' 


045503 


000 












882 


005 347' 


040 


020040 


042522 


MES9I 


.ASCIZ 





READ' 


883 


005354' 


042101 


000 












884 


005357' 


040 


040504 


040524 


MES10 S 


.ASCIZ 




DATA LATE ERROR% ' 


885 


005 364' 


046040 


052101 


020105 










886 


005372* 


051105 


047522 


022522 










887 


005400* 


000 














888 


005401 ' 


040 


051104 


053111 


MES1 1 I 


, ASCIZ 




DRIVE NOT PEADY% ' 


889 


005406' 


020105 


047516 


020124 










890 


005414' 


042522 


042101 


022531 










891 


005422' 


000 














892 


005423' 


040 


047503 


046125 


MES12 J 


.ASCIZ 




COULD NOT GET DRIVE%' 


893 


005430' 


020104 


047516 


020124 










894 


005436' 


042507 


020124 


051104 










895 


005444' 


053111 


022505 


000 










896 




005452' 








.EVEN 






897 


005452* 


005134' 






TRERRJ 


MES1 






898 


005454* 


177777 








177777 






899 


005456* 


005157' 






MCPERRI 


MES2 






900 


005460' 


177777 








177777 






901 


005462* 


00521 1 ' 






MDPERRS 


MES3 






902 


005464* 


177777 








177777 






903 


005466* 


005317' 






EXCED1 I 


MES7 






904 


005470' 


005276' 








MES6 






905 


005472" 


177777 








177777 






906 


005474' 


005330* 






EXCED2I 


MESS 






907 


005476' 


005276* 








MES6 






908 


005500* 


177777 








177777 






909 


005502* 


005347' 






EXCED3I 


MES9 






910 


005504* 


005276* 








MES6 
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SEQ 0025 



911 


005506* 


177777 




177777 




912 


4105510* 


005357 ' 


DLTERRl 


MES10 




913 


0055 1 2 * 


177777 




177777 




914 












915 


00551 4 * 


005401 * 


NOT! 


MES11 




916 


0055 1 6 * 


177777 




177777 




91 7 


005520 * 


005423 * 


TOUTl 


MES12 




918 


005522 * 


177777 




177777 




919 












920 


005524 * 


005251 * 


DRPl 


MES4 




921 


005526 * 


005541 ' 




NUMB 




922 


005530* 


005263' 




MESS 




923 


005532 ' 


177777 




177777 




924 












925 


005534 * 


000005 


ADR1 1 


.BLKB 


5 


926 


005541 * 


000 


NUMB t 


.BYTE 





927 


0055 42 * 


000 




.BYTE 





928 




005544' 




.EVEN 




929 


005544* 


000 


TRY1 1 


.BYTE 





930 


005545* 


000 


TRY2 I 


.BYTE 





931 


005546 * 


000 


TRY3: 


.BYTE 





932 


005547 * 


000 


TRY4 1 


.BYTE 





933 


005550* 


000 


TRY5 1 


.BYTE 





934 


O05551 * 


000 


TRY6I 


.BYTE 





935 


005552 * 


000 


TRY7 1 


.BYTE 





936 


00555 3* 


000 


TRY8 I 


.BYTE 





937 


005554* 


000 


TRY9 1 


.BYTE 





938 


005555* 


000 


TRY10I 


.BYTE 





939 


005556* 


000 


TRY11 J 


.BYTE 





940 


005557* 


000 


TPY12i 


.BYTE 





941 


005560' 


000 


FLAG! 


.BYTE 





942 


005561 ' 


000 


TRKl 


.BYTE 





943 


005562' 


000 


FIX! 


.BYTE 





944 




005564' 




.EVEN 




945 












946 












947 




000001 




.END 





t NEED DO NOT DELETE FROM CODE 



PPB1 PEC/X11 SYSTEM EXERCISER MODULE MAC Yl 1 30A(1052) 08-FEB-79 09126 PAGE 28 



XPPBI0.P11 08-FEB-79 


09123 




CROSS 1 


REFERENCE 


TfiBLE 


USER 


SYMBOLS 












SEC 


AB,v 


002036P 


361 


363# 
























ACSR 


0H0102R 


193# 


781# 
























ADDR 


0M00fr»6R 


159# 


805 
























ADDP22= 


001000 


222* 


487 


845 






















ADR1 


005 5 3 4F 


561 


925# 
























ASB 


000106R 


1 97# 


773* 
























ASTAT 


K W H.) 1 4 P 


195* 


























AWAS 


0001 1 0R 


198* 


775* 
























BEGIN 


000000R 


156* 


346 


351 


384 


387 


391 


399 


406 


413 


418 


472 


473 


477 






478 


494 


502 


506 


561 


581 


595 


599 


604 


608 


611 


621 


714 






715 


718 


726 


730 


794 


795 


801 














BIT0 a 


000001 


222* 


415 


518 


527 


537 


540 


736 














BIT1 = 


000002 


222« 


516 


635 


640 


646 


654 


687 














BITI© = 


00 2000 


222» 


573 


600 






















BIT11 a 


00 400W 


222« 


712 


759 






















BIT12 a 


J 


222* 


303 


761 






















BIT13 = 


2000 V'' 


222* 


583 


600 






















BIT14 a 


40000 


222# 


481 


587 


589 


600 


763 
















BIT15 a 


10M000 


222» 


536 
























BIT2 a 


000004 


222» 


375 


377 


547 


579 


















BIT3 a 


000010 


222« 


360 


695 


701 




















BIT4 a 


000020 


222» 


























BIT5 a 


000040 


222# 


305 


789 






















BIT6 = 


000100 


222* 


755 
























BIT7 a 


000 200 


222# 


























BITS a 


000400 


2 22 » 


585 


742 


757 




















BIT9 a 


001 000 


2228 


569 
























BLKSAV 


000354P 


265# 


349* 
























BLK1 


000256P 


224# 


319* 


349 


378* 


455 


514 


634* 


637 


639* 


643 


645* 






BLOCK 


003672P 


454 


634# 
























BREAK$a 


104407 


222# 


472 


473 


477 


478 


714 


715 


794 


795 










BR1 


000012R 


161 * 


853 
























BR2 


^0001 3R 


162# 


























BTOD$ a 


104421 


222* 


























BUFIN 


000370R 


204 


271 # 
























CDATAS* 


104412 


222# 


384 
























CDERCT 


000144R 


212# 


























CDWDCT 


000146R 


213# 


























CLEAR 


002660R 


468# 


624 


720 






















CLK 


000254R 


223# 


710* 


716* 


791* 


796* 


















CNT 


000266R 


228# 


296 


301* 






















CONFIG 


000056R 


181 # 


























CONVPT 


003756R 


456 


648 3 
























CSRA 


000100R 


191# 


780* 
























CT 


001706R 


338 


339# 
























CYCLE 


002174R 


386K 


























CYL 


000260R 


225# 


441 


442* 


450 


451* 


464 


465* 


648* 


656* 


659* 


682 


689* 




CYLSAV 


000262R 


226*? 


442 


451 


465 


682* 


















DAOCL 


002124R 


377# 


























DAOST 


001574R 


317# 


























DATCKga 


104411 


2228 


























DATEP$» 


104404 


222# 


























DLTCNT 


000252R 


222# 


302# 


578* 






















DLTERR 


005510R 


581 


912# 
























DRIVE 


000352R 


264# 


317* 


330 


340* 


698* 


703* 
















DROP 


003316R 


333 


417 


551* 


729 
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SEQ 0027 



DRP 


005924R 


41S 


730 


920# 






08KADR 


000346R 


262# 


439 


441 


462 


677* 


DVXCE 


000390R 


2 6 3 # 


316* 


317 


340 


341 


DVIDl 


l\Cki\f% % A O 

vvvv 1 4K 


1 6 3 # 


316 








EA22 


Okthm ten An 


239# 


496 


497* 


49B# 


499 




104413 


2221 


387 








END! ■ 


104410 


222# 


391 








ERRORS 


003354R 


509 


566# 








ERRTYP 


000106B 


196 # 


593* 


602* 


619* 


724* 


«>n site a 


004572R 


575 


723 


7801 






ERSUB2 


004546R 


773# 










EXCED 1 


00S466R 


399 


9031 








fi* v/^ B*n ^ 


Bw5474H 


406 


906 * 










005S02R 


413 


9098 








EXITS s 


104400 


222# 


502 








r UUNIT 


004200R 


354 


694* 


699 






FERADR 


000274R 


231 # 


295 








FINI 


002204R 


343 


359 


390# 


731 




FIX 


005562R 


943# 










FLAG 


005560R 


315* 


360 


375 


377* 


516 






654 


687 


695* 


701* 


94 1 # 


FREE 


000150R 


214# 










FUNC 


000270R 


229# 


436« 


445* 


459* 


500* 


GETPAS ■ 


104415 


222# 


346 








GOA 


002144R 


376 


380* 


404 






GOB 


002154R 


3828 


411 








GOGO 


002762R 


444 


453 


467 


485# 




GOS 


002104R 


3 7 3 # 


397 








GWBUF$a 


104414 


222# 


35 1 








HRDCNT 


00004 4R 


176* 










HPDERS" 


104405 


222# 


595 


621 


726 


801 


HRDPAS 


000050R 


1788 










ICONT 


000036R 


1 7 3 # 










ICOUNT 


000040R 


174# 










IDNUM 


0001 22R 


203# 










IMODX , ■ 


000000 


2 1 5 # 


352 








INIT 


000030R 


170# 










INTR 


1 20R 


202# 


300* 








MAP22$* 


104416 


222* 


494 








UBf V OIF 


000306R 


240* 


309 


653 






MBLKTR 


00031 0R 


241 # 


651 








MCPtPP 


005456R 


608 


899# 








U r> ft r n n 
MuP&RR 


005 46 2R 


611 










MES 1 


ilflC 1 IAD 

C>Vji *» " 


855 * 


897 








MES10 


005357R 


884# 


912 








MESH 


005401R 


888# 


915 








MES12 


005423R 


892* 


917 








MES2 


005157P 


859# 


899 








MES3 


005211P 


864# 


901 








MES4 


00525 IP 


870S 


920 








MESS 


005263R 


872» 


922 








MES6 


V05276R 


874# 


904 


907 


910 




MES7 


005317R 


877* 


903 








HESS 


H05330R 


879* 


906 








MES9 


005347R 


832* 


909 








MHICY 


000316R 


244* 


519 


643 







678* 
357 



799# 



557* 



518* 
501 
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MLOWCY 


0003HP 


243# 


637 




MODE 


HR0 312R 


242* 


674 




MODNAM 


nt)000i^R 


157* 






MODSP 


HP0252R 


171 


220# 




MOD 1 


0P0366P 


2 70S 


303* 


307* 


MSGN$ = 


H54403 


222* 


399 


406 


MSGS$ a 


104402 


222* 






MSGS s 


104401 


222* 






NEXT 


002000P 


354* 


389 


393 


NEXTA 


fr>02332R 


400 


407 


414 


NOT 


005514R 


718 


9158 




NOTRPY 


fr'04256R 


366 


710* 




NTRUPT 


003 t 16R 


486 


504# 




NULL a 




222* 






NUMB 


005541R 


921 


926# 




NXT1 


(("•02210R 


393* 






ONCEE 


000272R 


230* 


314* 




OPEN a 


000000 


158 


164 


165 






193 


195 


197 






213 


214 


222* 


OTOA$ s 


104420 


2221 


561 




PASCNT 


000034R 


1 72 # 






PA18 


000276R 


236* 


489* 


494 


PA22 


000302R 


238* 


495 




PIR0$ a 


000004 


2221 


506 




POPSP 9 


005726 


222# 






P0PSP2S 


022626 


222* 






PRTY a 


000000 


222* 






PRTY0 m 


000000 


162 


222* 




PRTY1 a 


000040 


222* 






PRTY2 a 


000100 


222* 






PRTY3 a 


000140 


222# 






PRTY4 9 


000200 


222« 






PRTY5 a 


000240 


161 


222* 




PPTY6 a 


000300 


2223 






PRTY7 a 


000340 


222# 






PS a 


177776 


222 it 






PSW a 


177776 


222% 






PUSH a 


005746 


222% 






PUSH2 « 


024646 


222* 






RAND$ a 


104417 


222# 






RANNUM 


000054R 


180* 






RBUFEA 


000130R 


206# 


467 




RBUFPA 


000126R 


205* 


384 


461 


RBUFSE 


000132R 


2078 


347 




RBUFVA 


000124R 


204« 


346 




READ 


002566R 


382 


4591 




READY 


004460R 


364 


721 


751# 


RESTRT 


001734R 


199 


342 


345# 


RESYNC 


003666R 


568 


572 


574 


RES1 


000056R 


182# 


487 


845 


RES2 


000060R 


183* 






RETRY1 


002214R 


374 


394# 




RETRY2 


002246R 


381 


401# 




RETRY3 


002300R 


383 


4081 




REEET 


004610R 


337 


789# 





482 
413 



419 
415* 



166 
198 



167 

200 



184 

201 



185 
202 



186 
205 



187 
206 



188 
208 



189 
209 



190 
211 



191 
212 
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SEO 0029 



RHBA 


001 374R 


275* 


438* 


RHBAE 


001 440R 


293# 


496* 


RHCSi 


001 370R 


2 7 3 # 


469* 






792 


806* 


RHCS2 


001400R 


277# 


355* 


RHCS3 


001 442R 


294« 


850* 


RHDB 


001412R 


282* 


615 


RHWC 


001 372R 


274# 


437* 


ROOM 


003140R 


5 1 4t 


571 


RPAS 


(301 406R 


280* 


480* 


RPCC 


001 426R 


288* 


7 1 1 * 


RPDA 


001 376R 


276* 


439* 


RPDC 


001 424R 


287* 


441* 


RPDS 


001 402R 


278* 


573 


RPDT 


001 416R 


284 * 


683 


RPEC 1 


001 434R 


291 # 


842* 


RPEC2 


001 436R 


292 * 


844* 


RPEP i 


00 1 40 4 R 


279* 


569 


RPER2 


00 1 4 30R 


289* 


838* 


RPER3 


0014 32P 


290* 


840* 


RPLA 


00 j 4 j 0p 


28 1 # 


822* 


RPMR 


001 4 1 4R 


283* 


826* 


RPOF 


00 1 422P 


286* 


482* 


RPSN 


001 4 20R 


285 * 


830* 


RP06CK 


004 1 32R 


440 


449 


RSTPT 


000 1 1 2R 


199* 




SBADR 


1 2 P 


1 92 * 


774* 


SEC 


000264R 


227 * 


649* 


SETUP 


00 4 7 00 P 


336 


805 # 


SOFCNT 


00004 2R 


175# 




SOFEFSa 


I04406 


222* 


604 


SOFPAS 


000046R 


177* 




SPOINT 


000032P 


1 7 1 * 


318 


spsiz s 


0000 40 


1 # 


215 


SRI 


0t»00 1 6P 


164* 


305 


SR2 


000020R 


165* 




SR3 


00002 2R 


1 66* 




SR4 


00002 4R 


167* 




START 


W01 452R 


170 


298S 


STAT 


00W026P 


169* 




STRT 


00175 4R 


349* 


362 


STRT1 


001 762P 


350* 




SVR0 


00006 2 P 


184* 




SVR1 


00006 4R 


1 95 If 




SVR2 


000066P 


1P6# 




SVR3 


000070R 


187* 




SVR4 


00k?072P 


188* 




SVR5 


00-307 4R 


189* 




SVR6 


<c'<VWl 6R 


190* 




SYSCNT 


000052R 


179* 




TABLE 


*n>t 37 0R 


272* 


595 


TBUF 


000356R 


266* 




TOUT 


WW5520F 


917# 




TREPP 


005 452R 


599 


897* 


TRK 


WH5561R 


650* 


664* 


TRPDFDa 


W 0002 2 


222* 





447* 


461* 


489 


495* 


810* 


848* 










474* 


475 


481* 


501* 


566 


468* 


485* 


576 


585 


600 


618* 


623* 


824* 






446* 


460* 


808* 






591 


612 


734 


790* 


820* 


836* 










448* 


462* 


812* 






450* 


464* 


834* 






589 


752 


816* 






685 


828* 








818* 










832* 










463 


682* 








669* 


674 


676* 


677 




415 


579 








379 


852 








604 


621 


726 


801 




672 


678 


942* 







583 587 712 728* 780 781 

616 735 747* 751* 789* 814* 



RPBI 0EC/X11 SYSTEM EXERCISER MODULE 



MAC Y 1 1 30AC1052) 08-FEB-79 09126 PAGE" 32 



XRPBJ0.pl! 08-FEB-79 


09:23 




CROSS REFFPENCE 


TRY1 


005544R 


367* 


394* 


395 


929* 


TRY 10 


005555 P 


938* 








TRY1 1 


(i^5556R 


372* 


939* 






TRY 1 2 


WW5557R 


940* 








TRY2 


0055 45R 


401* 


402 


930# 




TRY3 


005546R 


368* 


408* 


409 


931* 


TRY4 


005547R 


932* 








TPY5 


0055 5*-P 


369* 


933* 






TRY6 


00555 IF 


934# 








TRY7 


««5552R 


370* 


935* 






TRY8 


005553P 


936# 








TRY9 


005554R 


371* 


937# 






T16 


000 320R 


246# 


304 






T18 


000 332R 


254* 


308 






UNITNO 


fo00364R 


269* 


320* 


332* 


339* 


UPDATT 


002550R 


363 


454* 






VECTOR 


0000 l^R 


160* 


486* 


851 




WASADP 


t;00104R 


194* 


776* 






WBUFEA 


0001 36R 


209« 


444 


453 




WBUFPA 


0001 3 4R 


208* 


438 


447 




WBUFPQ 


0001 40R 


210* 








WBUFSZ 


0001 4 2R 


211* 


352 


515 




WCNT1 


000360R 


267# 


352* 


353* 


437 


WCNT2 


000362P 


268* 


347* 


348* 


460 


WDFR 


0001 16R 


201* 


298* 






WDTO 


0001 14R 


200* 


299* 






WHO 


004406R 


614 


734* 






WRITCK 


002454R 


380 


445* 






WRITE 


002 360R 


373 


436* 






XFEPAD 


001444P 


295* 








XFERCT 


001446R 


296* 








XFLAG 


000005P 


158* 








XMEM 


000300R 


237« 


444* 


453* 


467* 


ZERO 


000344P 


261* 


618 






e 3 


005564R 


271* 


385 


896* 


925* 



485 



490* 
928# 



491* 
944* 



, ABS, 000000 000 

005564 001 



ERRORS DETECTED I 

DEFAULT GLOBALS GENERATED > 

XRPBI0,XRPBI0/5OL/CPFISYM»DDXCOM,XRPBI0 
RUN-TIMEl 1 2 ,4 SECONDS 
RUN-TIME RATIOl 18/5*3.4 
CORE USEDl 7K (13 PAGES) 



